home *** CD-ROM | disk | FTP | other *** search
/ Shocking The Web CD-ROM / SHOCK_CD.ISO / mac / Chapter Tutorials / ch06.Media / ShapesPatterns / Wlpaper / wall.dcr / 00093.ls < prev    next >
Encoding:
Text File  |  1996-11-26  |  410 b   |  11 lines
  1. on mouseDown
  2.   puppetSound("electriCharge")
  3.   set colorcycle to list(24, 45, 16, 96, 255, 0)
  4.   set spriteList to list(1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22)
  5.   repeat while the mouseDown
  6.     set the foreColor of sprite getAt(spriteList, random(22)) to getAt(colorcycle, random(6))
  7.     set the stageColor to getAt(colorcycle, random(6))
  8.     updateStage()
  9.   end repeat
  10. end
  11.